Using Micro Concurrent Pascal in RCA Development Systems 
with the CDP1804P1 and CDM5332P1 



By David C. Stanley 



Micro Concurrent Pascal (mCP)'^ is designed for wi:iting real-time computer 
control applications and is best suited for real-time executions that 
require multitasking operating systems, MCP allows the programmer to 
construct interrupt driven tasks that can share data, communicate 
information, and be sjmchronized for execution, RCA has developed a 2-chip 
set (CDP1804P1 and CDM5332P1) which contains a pseudo-code (p-code) 
interpreter and facilitates use of mCP in end use systems. This article 
describes mCP, the RCA chip set, and how to generate mCP code, 

MCP FEATURES 

A task is called a "process** in mCP, Processes are independent programs 
that run concurrently by sharing control of the microrocessor. Routines 
and the data shared between them are placed in a data structure called a 
••monitor'*. Processes access shared data only through monitors that enforce 
exclusive use of data (allow only one process at a time to use it), 
••Device monitors*^ allow processes to access shared devices, 

COMPILER and INTERPRETER 
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The mCP compiler written by Enertec Inc, resides on Compuserve, The 



generated with an RCA development system editor (CDS or MCDS) and up-loaded 
to Compuserve for compilation. The Pascal file may also be generated with 




aquired from RCA Systems Marketing 



An mCP program may be 



9lt Micro Concurrent Pascal and mCP are registered tradenames of Enertec, 
Inc., Lansdale, PA, 



Compuserve's FILGE (FILe GEnerator) editor and compiled. The mCP compiler 

outputs the p-code application program that is down-loaded to the CDP1804P1 

microcomputer system and executed by the interpreter/kernel. This 

interpreter is divided into two sections. 

The first section (core) resides in the 2K ROM of the CDP1804Pl^and is 

independent of the second section. The core section of the interpreter 

permits execution of a restricted subset of mCP language (see table 1). 

The restrictions on the language are concurrency, set operations and SET 

data types, bit manipulation and string move subroutines, and REAL 

(floating-point) data types. This subset of mCP ("micro Pascal") is 

compatible with sequential Pascal defined in Jensen and Wirth's: PASCAL 

2 

User Manual and Report. A memory map for the core interpreter system is 
shown in appendix A. A user generated branch/parameter table located on 
page 0 must contain address pointers for the start of the p-code program 
and boundries of a contiguous RAM memory space for interpreter working 
storage (see appendix A). The 64 byte on-chip RAM of the CDP1804P1 can be 
used for this working storage only with the core interpreter. Immediately 
following the branch/parameter table should be a list of the built-in 
machine language subroutines for the CDP1804P1 (see appendix B). Users may 
write their own subroutines by extending the list up to a total of 128 
routine addresses. Programmers must write their own interrupt routines or 
poll I/O ports for devices that do not generate interrupts. This is 
accomplished by using Pascal functions and procedures INN, OUT, PEEK, and 
POKE. Appendix C describes interrupt handling including CDP1804A 
Timer/counter interrupts. 

The second section (extension) of the interpreter is designed to work 
with the core and extends support to the complete mCP language. Table 2 
shows the additional language features of the extension ROM. A memory map 
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of the extended interpreter system is shown in appendix A. The extension 
ROM replaces the branch/parameter table used by the core interpreter and 
sets up its own table identical in layout for linkage with the core. This 
table contains a page pointer to an address table for p-code subroutines. 
The user must generate a branch/parameter table starting at page 10 
hexadecimal in same manner as with the core (see appendix A). Figure 1 
shows a typical CDP1804P1 mCP system with the CDM5332P1 extension ROM. 

CDS 

To up-load and down-load Pascal programs from Compuserve, the CDS Micro NET 
Exective program is needed. This program is available in the RCA User 
Group and may be booted to a CDS system disk using the boot load program 
described in the Compuserve Manual. A modem is required. The CDS IV 
(18S008) connects to the modem through the connector on the back of the 
system. The CDS III (18S007) needs an 18S641 UART board and a modified 
18S516 cable to connect to the modem. This modification consists of 
reversing pins 2 and 3 of the 10 pin connector on the 641 UART board. The 
modem is set to full duplex and originate mode. The 641 UART board is 
placed in an I/O slot with the N lines wired to it. Appendix D shows an 
example of the up-load and down-load sequence. 

To use the CDP1804P1 in the CDS IV and CDS III, the CDP18S605 (CDS IV) 
and the CDP18S102V1 (CDS III) CPU boards must be modified by inverting the 
WAIT and CLEAR lines and switching them (ie. WAIT to pin 3 and CLEAR to pin 
2 of the CPU) and disconnecting pin 16 (ME/EMS) and letting it float. The 
CDM5332P1 extension interpreter may be copied onto disk using an altered 
CDP18S480 PROM programmer board. This alteration consists of adding switch 
to pin 21 of socket XU3 (see figure 2). The 5332P1 can then be placed in 
socket XU3 and read as two 2716 's. The first 2K of the interpreter can be 
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copied into locations 0800 - 1000 with the switch at Vss. The second 2K is 
copied into locations 1000 - 17FF with the switch at Vdd (collector of 
transistor Ql). The PROM board may also be used as normal with the switch 
in this position. Once the interpreter is loaded to disk (using save 
command), it may be loaded into RAM at location 0000 for program 
development. Once development is complete, the CDM5332P1 can be used for 
prototype hardware. 

MODS 

The 18S601 CPU board must be modified for the CDP1804P1 (see appendix E). 
The following links must be altered: 

1. Remove links 4:13 and 2:15 of LK36 

2. Add links 3:14 and 1:16 of LK36 

3. Remove link A:B of LK37 

The extension ROM must be located at 0000 - OFFF and RAM must immediately 
follow for the branch/parameter table (see appendix F). The following must 
be done: 

1. Add link 6:11 and 1:16 of LKll 

2. Add link 5:12 and 1:16 of LKIO 

3. Remove link 1:18 of LK4 

4. Disconnect pin 2 of U28 from 
All-P and connect to + 5V 

5. Connect All-P to pin 21 of U24 

With this set-up, the editor and assembler cannot be used because RAM is 
needed at location 0000 for their operation. The FILGE editor on Compuserve 

may be used or the MODS editor may be used by replacing the hardwire links 



with DIP switches at LKIO and LKll. Then when using the editor, switch RAM 
to location 0000 (LKll - 5:12) and the extension ROM to location 1000 
(LKIO - 6:11). When ready to interpret a p-code program, switch them back 
(LKll - 6:11; LKIO - 5:12), Another option is to purchase a second 
CDP18S601 board and modify it for use with mCP, The Pascal program can be 
edited with the MODS 601 board and replaced with the mCP 601 board for 
p-code interpretation. The extension ROM is the 4K CDP5332P1 and is placed 
in socket U24 of the 18S601 board. 

The MODS Micro NET Executive is needed to up-load and down-load 
Pascal programs and is also available on Compuserve. The program may be 
booted into the MCDS system and burned into a 2716 EPROM which is placed in 
socket U13 (location EOOO) of the CDP18S652 Tape I/O and Memory board. The 
ROM in socket U3 must be removed because it is mapped at COOO (since this 
ROM is part of BASIC 3, BASIC cannot be used). The MCDS communicates with 
the modem with the same hardware as the CDS III (18S007). The CDP18S641 
UART board plugs right into any open socket. An example of the up-load and 
down-load sequence is shown in appendix G. 

Summary 

Real-time mCP application programs can be developed on MCDS and CDS 
development systems. A version of sequential Pascal (micro Pascal) is also 
available when using only the CDP1804P1. Both mCP and micro Pascal can be 
compiled using the mCP compiler residing on Compuserve. These programs are 
up-loaded into Compuserve for compilation and down-loaded into the 
development system for execution. With minimal changes to existing 
development systems, the CDP1804P1 and CDM5332P1 can be developed and then 
used in the final application system 



FOOTNOTES 
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File 1371 

4. D. Block, Programming 2732 PROM's with the CDP18S480 
PROM Programmer, ICAN-6847 



P-CODE STORAGE REQUIREMENTS 

The length of the P-code is the sm of the code length and the constant 
length found in the program listing file output by the mCP compiler. The 
coxxstant storage area follows the program code contiguously. 

RAM WORKING STORAGE REQUIREMENTS 

The amount of RAM actually used by a program is computed during inter- 
preter initialization. The address of the next free byte of RAM is located 
in the first word of RAM storage. 

The amount of RAM used by a program is calculated: 

24 + stack length 4> variable size 

The stack length is the first parameter on the INIT_PROCESS P-code, The 
variable size is the second parameter. The parameter length is the third 
parameter (it is zero for micro Pascal). The INIT_PROCESS P-code is found 
at the end of a *'long" listing file output by the compiler. 

Micro Pascal uses three bytes of the R2 system stack. Micro Concurrent 
Pascal uses three bytes of the R2 system stack plus 13 bytes when floating 
point subroutines are used. 

In a mCP program there may be several INIT PROCESS p-codes. These 
must be summed to calculate the RAM storage requirements. Also the DOIO 
table size and stack margin parameter must be included. 
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The interpreter clears memory as part of its initialization. To 
prevent memory clear the initialization sequence may be altered. 

The following patch will prevent memory clear in micro Pascal: 

Location Data 

0003 0060 address of patch (can be any 

0060 68CD000F suitable locatio 

ED 68676865 6886^ 68 6A 

E2 68E5E5 68 B725^"-^ ^ ^^(^ 

COCOIB 

The following patch will prevent memory clear in micro Concurrent Pascal: 

Location Data 

1003 1060 address of patch (can be any 

1060 ED 6867 6865 6866686A suitable location) 

E2 68B5 E5 68B7 25 
COCOIB 



U SING 180 4 MICRO PASCAL 

111 order to use 1804 micro Pascal, the programmer must set up a 
branch table and a parameter area starting at location 0000 (hex). 
Programmer defined external macViine language subroutines may follow this 
area or the number of built-in subroutines may be extended. Actual Pascal 
P-code follows the built-in subroutine address table. 



Page 00 branch table and parameter area: 



ADDRESS 


DATA 


COMMENT 


0000 


7100 


Disable interrupts 


0002 


COCOOO 


Long branch to pre-initialization 


0005 


EEDFOG 


Post- initialization (could be long branch) 


0008 


COC079 


Long branch to software error continuation 


OOOB 


C0C6BB 


Long branch to external interrupt 


OOOE 


CI 


P-codc subrouting adress table page 


OOOF 




Bottom of RAM address 


0011 




Top of RAM address 


0013 




Size of RAM (RAM Top-RAM bottom +1) 


0015 




P-code starting address 


0017 


0000 


Reserved for micro Concurrent Pascal extension 



prograPi 



The programmer defines the location of BMi working storage and the start- 
ing P-code address. All other fields should reamin as specified above unless 
special requirements must be met. The branch table is used by the optional 
mCP ROM to link with the 1804 micro Pascal 5,nterpreter . 

The addresses of bottom and top of RAM may be adjusted so that memory 
space is available for working storage by external or built-in maching languag 
and interrupt subroutines. Only the area defined between RAM bottom and ROM 
top will be cleared to zero. 

Tiie application program P- codes output by the cross-compiler arc re- 
locatable anywhere in manory. The starting P-code base address is specified 
in the parameter area, location 0015 he>:adecijiial . 



APP^jOOlK A- COMF 



Page 00 must also contain the built-in machine language subroutine 
address table: 



ADDRESS 


SUBROUTINE LOCATION 


SUBROUTINE NAME 


SELECTOR 


0019 


C558 


Test external flag 1 (EFl) 


1 


OOIB 


rssr 


Test external flag 2 (EF2) 


2 


OOID 




Test external flag 3 (EF3) 


3 


OOIF 




Test external flag 4 (EF4) 


4 


0021 


PfiOO 


Set DMA register (RO) to address 


5 


\j \j ^ 


L»DU J 


Get DMA register fRO) address 

\j w x.y 1. XX X X- JTL jui^ w X. \ xv vy ^ cx vx vx x. v— ^ ^ 


6 


0025 


r977 


Set INTERRUPT register (Hi) address 


7 


00 97 


p^n A 
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T A^^H pAimt'PT 
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JU' \m<- X. i. It %«» X i Si- V/ ^ vx X t w Wo ^ 
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UU J J 
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Sf^^T"!" t'TTTlPT 

v> L d X L. l..XJilwX 


14 
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C237 
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C23A 


Start counter mode 2 

^ C' CI X. w ^ V/ vx 1 1 V— - X. Ill vy vx v- <c» 


16 


AA10 


C25/ 


Start pulse mode 1 


17 


U03B 


C25A 


Start pulse mode 2 


18 


PA 

L'U Jl) 


C2B5 


Enable toggle Q flag 


19 


A A OT^ 


C2B8 


External interrupt enable 


20 


0041 


C2BB 


External interrupt disable 


21 


0043 


CCDB 


Counter interrupt enable 


22 


0045 


CODE 


Counter interrupt disable 


23 


0047 


C2CE 


Set PvAM timer word 


24 


0049 


C0E7 


Get RAM tiiper word 


25 


004B 


COEl 


Enable interrupts 


26 


004D 


C0E4 


Disable interrupts 


27 


00 4F 


C27 5 


Wait for interrupt 


28 



1802/ 
1804 
built-ii 
subr . 



} 



1804 , 
buil t--ii 
subr . 



The built-in machine language subroutines reside in the 1804 ROM. 
Additional built-in subroutines may be coded by extending the list of sub- 



AfP£/0O(X h co^or- 



routine addresses. Up to a total of 128 built-in subroutine addresses may 
exist. If a particular built-in subroutine entry is not used, it may be 
replaced by another subroutine address. 
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USING MCP EXTENSION ROM 

With the mlcrc Concurrent Pascal ectenslon ROM installed, the programmer 
must set up a branch table and parameter area starting at location 1000 (hex). 
Programioer defined external machine language subroutines may follow this area 
or the number of built-in subroutines may be extended. Actual Pascal P-code 
follov7S the built-in subroutine address table. The parameters in page 10 
(hex) have the same relative position as parameters specified in page 00 
for micro Pascal. 

Page 10 (hexadecimal) branch table and parameter area: 



ADDRESS 


DATA 


COMMENT 


1000 


7100 


Disable interrupts 


1002 


C0C004 


Long branch to pre- initialization 


1005 


EEDFOO 


Post-initialization (could be long branch) 


1008 


C00043 


Long branch to software error continuation 


lOOB 


C00304 


Long branch to interrupt subroutine 


lOOE 


01 


P-code subroutine address table page 


lOOF 




Bottom of RAl-I address 


1011 




Top of RAM address 


1013 




Size of RAM (RAM top - RAM bottom +1) 


1015 




P-code starting address 


1017 


0040 


DOIO size and stack margin 



The programmer defines the location of RAM working storage and the starting 
P-code address. All other fields should remain as specified above unless 
special requirements must be met. Adding initialization code, changing the 
P-code branch table, etc., can be made by altering the branch and j^arameter 
table entries. 

The addresses of bottom and top of RAM may be adjusted so lhat memory 
space is available for working storage by external or built-in machine language 
and interrupt subroutines. Only the area defined between RAli bottom and top 
will be cleared to zero. 



Page 10 must also contain the built-in machine language subroutine 
address table: 



ADDRESS 


SUBROUTINE LOCATION 


SUBROUTINE NAME 


SELECTOR NUMBER 


1019 


C558 


Test external flag 1 (EFl) 


1 


lOlB 


C55C 


Test external flag 2 (EF2) 


2 


lOlD 


C560 


Test external flag 3 (EF3) 


3 


lOlF 


C564 


Test external flag 4 (EF4) 


4 


1021 


C600 


Set DMA register R(0) to address 


5 


1023 


C605 


Get DMA register R(0) address 


6 


1025 


022E 


Change address of interrupt table 


7 


1027 


C60A 


Set Q flag on or off 


8 


1029 


C610 


Test Q flag 


9 


10 2B 


C20E 


Load counter 


10 


102D 


C212 


Get counter 


11 


102F 


C22E 


Stop counter 


12 


1031 


C231 


Decrement counter 


13 


1033 


C234 


Start timer 


14 


1035 


C237 


Start counter mode 1 


15 


1037 


C23A 


Start counter mode 2 


16 


1039 


C257 


Start pulse mode 1 


17 


103B 


C25A 


Start pulse mode 2 


18 


10 3D 


C2B5 


Enable toggle Q flag 


19 


10 3r 


C2B8 


External interrupt enable 


20 


1041 


C2EB 


External interrupt disable 


21 


1043 


CODE 


Counter Interrupt enable 


22 


M045 


CODE 


Counter interrupt disable 


23 


1047 


C2CE 


Set RAM timer word 


24 


1049 


C0E7 


Get RAM timer vord 


25 



Note: 1. Selector mjinbc!: 7 is different from the micro Pascal built-in 
subroutine. 

2. The last three built-in subroutines in micro Pascal are omitted 
here because they do not apply to micro Concurrent Pascal. 



d::bugging using line directive 

t 

For debugging using the LINE directive, the line number of the statement 
being executed can be found at RAM bottom + 4 (word). It may also be found at 
the address found in register 11, the LOCAL variable pointer. The line 
number is saved on the stack during a procedure or function call. However, 
it is not restored to the LINE variable in RAM (RAM bottom + 4) by micro 
Pascal. Micro Concurrent Pascal does restore the LINE number. ^ 

DEBUGGING INFORMATION 

When a software er?or occurs the error code will be stored at RAM 
bottom + 7 (byte) and the P-code program counter (QPTR) will be stored at 
RAM bottom + 8 (word) . 

BUILT-IN ASSglSLY LANGUAGE ROUTINES 

Built-in assembly language routines ai.c nrovided for common machine 
oriented functions. These include subroutines for the counter/ timer and 
special instructions. 

All built-in external routine declaration examples given below assume 
the following type declarations: 

lyPE BUILT_INJSL^R » 1. . . 28; 

INT BYTE - 0...255; 



TEST_EF1 (1) 

Assembly language function tests external flag 1 (EFl) and 
returns either 0 ot 1 (boolean) . 
Routine declaration: 

mCTION' TEST_E?1 (SELECTOR: BUILT_IN_SUBR) : BOOLEAN; 
EXTERNAL 'TESTEFl'; 

TEST_EF2 (2) 

Assembly language function tests external flag 2 (E?2) and 
returns either D or 1 (boolean) . 
Routine declaration: 

HJNCTION TEST_EF2 (SELECTOR: BUILT_IN_SUBR) : .BOOLEAN; 
EXTERNAL •TESTEF2'; 

TEST_EF3 (3) 

Assembly language function tests external flag 3 (EF3) and 
returns either 0 or 1 (boolean) . 
Routine Declaration: 

FLTNCTION TEST_EF3 (SELECTOR: BUILT_IN__SU3R) : BOOLEAN; 
EXTERNAL 'TESTEFS'; 

TEST__EF4 (4) 

Assembly language function tests external flag 4 (EF4) and 
returns with 0 or 1 (boolean) 
Routine delcaration: 

FUNCTION TEST_EF4 (SELECTOR: BUILT_IN_SL'BR) : BOOLEAN; 
EXTER^IAL 'TESTEF4'; 



5. DMA_SET (address to set R0» 5). 

Assembly language procedure sets the DMA register R(0) to 
the address given by the first parameter. 
Routine declaration: 

PROCEDURE DMA_SET (RO_ADDRESS: ADDRESS; SELECTOR: BUILT_IN_SUBR) ; 
EXTERNAL 'DJUSET'; 

6. DMA_ASK (6) 

Assembly language function returns the address value of 
the DMA register R(0). 

Routine declaration: . . ^ - — • ~ ^ - 

FUNCTION DMA_ASK (SELECTOR: BUILT J[N_SUBR) : ADDRESS; 
EXTERNAL DMAASK'; 

7A. INTERRUPT (interrupt subroutine address to set Rl, 7) 

Micro Pascal: 

Assembly language procedure sets the interrupt register R(l) 
to the address of the interrupt subroutine given by the 
first parameter. 
Routine declaration: 

PROCEDURE INTERRUPT (INTERRUPT_ADR: ADDRESS; SELECTOR: BUILT_IN_SUBR) ; 
EXTERNAL 'INTCH^ 

7B. SWITCH_INTTBLS (address of interrupt table, 7) 

Micro Concurrent Pascal: 

Assembly language procedure changes the address of the interrupt 
table. Procedure alters RAM bottom 4- 16 (word) with new 
interrupt table addresses. 

PROCEDURE SWITCH_INTTBLS (NEI-7_INTTBL_ADR: ADDRESS; SELECTOR: 
BUILT_IN_SUBR) ; EXTERNAL 'INTCH*; 



8. SET_q__FLAG (Q flag value, 8) 

Assembly language procedure sets the Q flag to either 0 or 1 
given by the first parameter. 
Routine declaration: 

PROCEDURE SET_q_FLAG (Q_FLAG: BOOLEAN; SELECTOR: 
BUILT_IN_SL^R) ; EXTERNAL ^SETQ'; 

■ 9. GET__q__FLAG (9) 

Assembly language function tests the Q flag and returns 
either 0 or 1 (boolean) . 
Routine declaration: 

FUNCTION GET_(^FLAG (SELECTOR: BUILT_IN_SL'BR) : BOOLEAN; 
EXTERNAL 'GETQ'; 

10. LOAD_COUNTER (count value, 10) 

Assembly language procedure sets counter to the counter value 
given by the first parameter. The value ranges from 0 to 
255. The procedure executes the LDC instruction. 
Routine declaration: 

PROCEDURE LOAD_COUNTER (COUNT: INT_BYTE; SELECTOR: 
BUILT IN SUBR); EXTERNAL 'LDC; 



11. GET_COUNTER (11) 

Assembly language function returns the value of the counter. 
This function executes the GEC instruction. 
Routine declaration: 

FUNCTION GET_COUNTER (SELECTOR: BUILT_IN_SUBR) : INTEGER; 
EXTERNAL 'GEC; 



. 12. STOP_C0UNTER (0, 12) 

Assembly language procedure stop the counter. The first 
parameter is a dummy parameter. This procedure executes the 
STPC instruction. 
Routine declaration: 

PROCEDURE STOP_COUNTER (DUMMY: INTEGER; SELECTOR: 
BUILT_IN_SUBR) ; EXTERNAL *STPC'; 

13. DECREMENT_COUNTER (0, 13) 

Assembly language procedure decrements the counter by 1. The 
first parameter is a dummy parameter. This procedure executes 
the DTC instruction. 
Routine declaration: 

PROCEDURE DECREME:^T_C0U:TTER (DUMMY: INTEGER; SELECTOR: 
BUILT_IN_SU3R) ; E'<TER:TAL 'DTC; 

14. START_TIMER (0, 14) 

Assembly language procedure sets the timer mode and starts 
the timer. The first parameter is a dummy parameter. This 
procedure executes the STM instruction. 
Routine declaration: 

PROCEDURE START_TIMER (DUMMY: lOTEGER; SELECTOR: BUILT_IN_SUBR) ; 
EXTERNAL 'STM^ 

15. START_COU!^TER^MODEL (0, 15) 

Assembly language procedure sets counter mode 1 and starts the 
counter. The first parameter is a dummy parameter. This 
procedure executed the SCI-U instruction. 
Routine declaration: 

PROCEDURE START_C0UNTEP_M0DE1 (DU:CfY: IKGETER; SELECTOR: 
BUILT_1N_SUBR) ; EXTERNAL SOU ' ; 



16. START_COUHTER_ M0nE2 (0, 16) 

Assembly language procedure sets counter mode 2 and starts 
the counter. The first parameter is a dummy parameter. This 
procedure executes the SCM2 instruction. 
Routine declaration: 

PROCEDURE START_COUNTER_ M0DE2 (DU!^-^: INTEGER; SELECTOR: 

BUILT_IN_SUBR) ; EXTERNAL '•SC't2 ' : 

17. START_PULSE_M0DE1 (C, 17) 

Assembly language procedure sets pulse mode 1 and starts 

counter. The first parameter is a dummy parameter* This 

procedure executed SPM instruction. 
Routine declaration: 

PROCEDURE START_PULSE_M0DE1 (DU>t>lY: INTEGER; SELECTOR- 
BUILT_IN_ SU3R) ; E:<TERNAL 'SPMl'; 

18. START_PULSE_M0DE 2 (0, 18) 

Assembly language procedure sets pulse mode 2 and starts 
counter. The first parameter is a dummy parameter. This 
procedure executes the S?!!2 instruction. 
Routine declaration: 

PROCEDURE START_PULSE_M0DE2 (DUMMY: INTEGER; SELECTOR: 
BUILT_IN_SUBR) ; EXTERNAL 'S?M2^ 

19. ENABLE_TOGGLE_Q (O, 19) 

Assembly language procedure sets the counter to toggle Q « 
whenever the counter decrements from 01 to its nex;: value. The 
first parameter is a dummy parameter. This procedure executes 
the ETQ instruction. 
Routine declaration: 

PROCEDURE ENABLE_TOGGLE_Q (DU>Gfy: INTEGER; SELECTOR: 
BUILT_IN_SUBR) ; EXTERNAL 'ETO'; 



20. EXT_INTERRUPT_ENABLE (0, 20) 

Assembly language procedure enables external Interrupts* The 
first parameter is a dummy parameter. This procedure executes 
the XIE instruction. 
Routine declaration: 

PROCEDURE EXT_INTEPJIUPTJENABLE (DUMMY: INTEGER; SELECTOR: 
BUILT_IN_SUBR) ; EXTERITAL 'XIE'; 

21. EXT_INTERRUPTJ)ISABLE (0, 21) 

Assembly language procedure disables external interrupts. The 
first parameter is a dummy parameter. This procedure executes 
the XID instruction. 
Routine declaration: 

PROCEDURE EICT^I^TERRITT^DISABLE (DUM>rf: INTEGER; SELECTOR: 
BUILT_IN_SUBR) ; EXTERMAL 'XID'; 

22. CNT_INTERRUPT_ENABLE (0, 22) 

Assembly language prodecure enables counter interrupts. The 
first parameter is a dummy parameter. This procedure executes 
the CIE instruction. 
Routine declaration: 

PROCEDURE CTT_INTERRLT»T_ENABLE (DUMMY: INTEGER; SELECTOR: 
BUILT_IN_SUBR) ; EXTERNAL 'CIE'; 

23. CNT_INTERRUPT_DISABLS (0, 23) 

Assembly language procedure disables counter interrupts. The 
first parameter is a dummy paraneter. This prodecure executes 
the CID instruction. 
Routine declaration: 

PROCEDURE CNT_INTERRU?T_DI SABLE (DUMMY: INTEGER; SELECTOR: 
BUILT IN SUBR); EXTERNAL 'CID'; 



24. SETjriME (time value, 24) • 

Assembly language procedure sets the timer word to the time 
value given by the first parameter. The timer word is decremented 
once whenever the timer/counter interrupt subroutine is executed 
until the timer word reaches zero. 
Routine declatation: 

PROCEDURE SETJIME (TIME: INTEGER; SELECTOR: BUILT_IN_SUBR) ; 
EXTERNAL 'SETIME'; 

25. GET_TIME (25) 

Assembly language function returns the current value of the , - 

timer word. 

Routine declaration: 

FUNCTION GETj:iME (SELECTOR: BUILT_IN_SL^R) : INTEGER; 
EXTERNAL 'GETIMET; 

2S. ENA3LE_INTERRUPTS (0, 26) 

Assembly language procedure enables interrupts. The first 
parameter is a dummy parameter. This procedure executes the 
RET instruction. 
Routine declaration: 

PROCEDURE ENAJSLE_INTERRUPTS (DUMMY: INTEGER; SELECTOR: 
BUILT_IN_SUBR) ; EXTERNAL 'ENB^; 

27. DISABLE_INTERRLT»TS (0, 27) 

Assembly language procedure disables interrupts. The first 
parameter is a dummy parameter. This procedure executes the 
DIS Instruction. 
Routine declaration: 

PROCEDURE DIS ABLE_INTERRITTS (DUM21Y: INTEGER; SELECTOR: 
BUILTjrNJUBR) ; EXTERNAL 'DIS'; 



28. IDLE (0, 28) 

Assembly language procedure waits for interrupts. The first 
parameter is a duinmy parameter. This procedure executes the 
IDL instruction. 
Routine declaration: 

PROCEDURE IDLE (DUMMY: INTEGER; SELECTOR: BUILT_IN_SUBR) ; 
EXTERNAL 'IDL'; 



HANDLING INTERRUPTS 

Interrupts can be enabled or disabled at any f^mf^. at the option of the 
prograamer. Interrupts do not affect P-code implementation. Interrupts 
are not enabled/disabled between P-code execution. The interrupt routine 
must save and restore the D register and DF flag on the interrupt stack (R2), 
along with any registers used. 

Because concurrency is omitted from the 1804 ROM, external interrupts 
must be handled by the prograinner. The ROM contains a built-in interrupt 
subroutine for processing counter interrupts. 

The built-in counter interrupt subroutine decrements a timer word in 
RAM if it is non-zero. Two built-in assembly language subroutines let the 
programmer read and write this timer word. 

The interrupt subroutine branches to a fixed location in the user P-code 
ROM. This linkage is provided for handling external hardware interrupts. 
Hardware interrupts must be latched. External interrupts have higher priority 
than counter interrupts. 



USER DEFINED INTERRUPT SUBROUTINE 

A User interrupt handling subroutine may replace the built-in counter/ 
timer subroutine by setting register 1 to the interrupt subroutine address. 
This may be accomplished by calling the built-in subroutine selector number 
7 (interrupt change). The interrupt subroutine must save DF, D, and any 
registers used on the R2 stack (R2 must first be decremented before storing 
data). The counter/ timer interrupt subroutine may serve as a useful model. 

MCF COUNTER/TIMER INTERRUPT TABLE ENTRY 

With ,the mCP extension ROM installed, timer/counter interrupt is 
specified in the interrupt table with a group number of zero and an EF flag 
number of zero. 

The Micro Concurrent Pascal User's Guide describes how to set up the 
interrupt table. 

MCP CQUia'ER/ TIMER PRESCALING 

An 1SC4 timer/counter prescaling feature is available in the interrupt 
subroutine. All 1804 timer/counter interrupts are scaled by the value in 
the 1804'TE^ER word in RAM. The TIMER word must be set to the initial 
presca]^ value minus 1 in each byte. For example, timer interrupts occuring 
at l/60th of a second can be scaled to every second by placing 3B3B in the 
TIMER word (3BH=59). The high order byte is the initial prescale value and 
the low order byte is a prescale variable. The SET RAM tuner word (selector 
number 24) built-in subroutine initializes the timer word. 

Normally the timer word is zero so that no prescaling takes place. 



mETOING THE NUMBER OF TIME RS 

Extra counter/ timers may be added to the built-in interrupt routine by 
using the link for external interrupts. Use the external interrupt link to 
branch to a BCI instruction that checks for counter/ timer interrupt. If this 
is a counter/ timer interrupt request decrement each storage word containing 
the timer. Finally, branch to location C6C0 (PTIMER) to reenter the interrupt 
subroutine. Machine language subroutines would also have to be added to 
read and write the extra timer words. These subroutines must use RLXA and 
RSXD instructions to read and write timer words to prevent the interrupt 
program from updating timer words while the main program accesses the timer 
words. 



»$PEOOO 



CDOB Micro NET Executive 

Copyright (C) 1981 Compuserve Incorporated 

••c 

User ID: 70161, 112 
Password; XXXX'XXXX 



CompuServe In-formation Service 
13:15 EDT Friday 24-Sep-e2 



OK 

R FILTRN 

CompuServe File Transfer Program 

Select direction: 

1 i-f to your RCA COSMAC DEVELOPMENT SYSTEM IV 

2 i-f to the PDP-10 

Enter the PDP-10 file specification: PASCAL, SRC 
Please give me a -filespec -for CDOSs PASCAL, SRC: 1 

INITIALIZING PROTOCOL 

UPLOAD STARTING 

*** File transfer completed! *** 



OK 

R MCP 



RCA/Enertec Pascal Compiler 



AffE/0O(X D <:o>oT 



<Nlame of your source files PASCAL. SRC 

OK 

-compiler passes- 




R FILTRN 

CompuServe File Trans-fer Program 

Select direction: 

1 i-f to your RCA COSHAC DEVELOPMENT SYSTEM IV 

2 i-f to the PDP-10 

? 1 

Enter the PDP-10 file specification: PASCAL. HEX 
Please give me a filespec for CDOS: PASCAL. HEX; 1 

INITIALIZING PROTOCOL 

DOWNLOAD STARTING 

**« File transfer completed! *** 



OK 
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MRALLCL XA) 
IWTEHPACE 



SEL 



ME- 
DIO-^ 



•11-^ —J 
WE-y— j 

CLEAW-W-^j 
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WIRE JUMPER WJi TO BE INSTALLED 
FOR RS232C OPERATION. USE HOLES 
MARKED C9 



Logic diagram of Mlcroboard Computar CDF18S601 • CPU and Intarfaca portions. 



COP1SS601 




teCI.*tl4T0llt 

Logic diagram of Microboard Computer CDP1 68601 - memory portions. 



*P£000 



(execute program) 



MCDS Micro NET Executive 

Copyright (C) 1981 Compuserve, Inc. 

(Dial up the Micro Net telephone number, wait for the modem ready signal) 



User H): 70007,530 return 
Password :. MCDS; APR, return 
Compuserve Information Service 
10:20 EDT Monday, 03-May-82 

OK 

(Enter and/or Edit a MCP source program) 

R FILGE return (run file generator) 

*IO601 >MCP return (enter file name) 

New file 10601 .MCP created-ready (new file response) 

File 10601. MCP ready (old file response) 



(*$ PERMIT, HIGHBYTE, LIST-SHORT $*) 

(*Turn on output port using switches from input*) 

CONST 



VAR 

X : Integer; 
BEGIN 

OUT (//4B, CNTRL) ; (*set A output*) 
OUT (#13, CNTRL) ; (*set B output*) 

CYCLE 

X : « INN (BPORT); 
OUT (X, APORT) 

END. 
/EXIT 

OK 



(control C) 



(Edit MCP source file) 



APORT = ADR (#0804); 
BPORT « ADR (#080E); 
CNTRL » ADR (#0802) ; 



(*ou tput*) 

(♦input*) 

(*control*) 



R MCP 



(execute compiler) 



RCA/Enertec Pascal Computer 

Name of your source file: 10601 .MCP return 

OK 

-compiler passes- 



DIR return 
10601. LST 
10601. DBG 
10601. HEX 
10 601. MCP 

R FILTRN 



(display directory) 



(run file transfer to perform down load) 



Compuserve File Transfer Program 
Select direction: 

.^..^ !• if RCA COSMAC Microboard Development System (down load) 
2. if to the PDP - 10 (up load) 

? 1 return 

Enter the PDP-10 file specification: 10601. HEX 
Please give me a filespace for MCDS; 0^ (tape drive 0) 

INITIALIZING PROTOCOL 

Rewind , then hit any key return 

Depress Play /Record and any key return 



DOWNLOAD STARTING 



(down load) 



*** File transfer completed *** 

OK 

+X 

* 

TAPE # 0 return 

LOADING 

*R 



(control X enters MCDS utility monitor 
program) 

(read tape for down loaded program) 



(read tape for Pascal parameter table) 



HANDLING SOFTWARE ERRORS 

The micro Pascal interpreter halts for the following software errors: 

BAD P-CODE 
HIMDRY OVERFLOW 

RANGE ERROR 
DIVIDE BY ZERO 

The micro Pascal internreter continues nrocessine P-codes for the following 
software error: 

ARITHMETIC OVERFLOW 
(use PEEK to access software 
error code and POKE to reset 
error code to zero) 

To halt the interpreter on arithmetic overflow instead of continuing, change 
the branch table location OOOftl to C0CfeE6. Arithmetic overflow occurs in 
ADD, SUBTRACT, NEGATE, ABS, DEC, INC, COPY BYTE and MLT.TIPLY integer P-code 
subroutines. The stack contains the overflow result and may be used in sub- 
sequent P-code operations. 

Micro Concurrent Pascal handles errors differently from micro Pascal. 
If the software error process exists, micro Concurrent Pascal will execute 
the error process when an error occurs, otherwise the program halts. 



MCP COMPILER DIRECTIVES 

The following directives must be defined In the micro Pascal source 
program: 

HIGHBYTE (determines HI-LO byte order for P-code generation) 

PERMIT (permits calls to INN, OUT, PEEK, POKE) 

For example: 

(*$ HIGEBYTE, PERMIT $*) 

should be the first line of the program. 



USER DEFINED BUILT-IN SUBROUTINE LINKAGE 

Build-in subroutines use register 8 as the program counter with X set to 
register 14. The first parameter is the integer value for indexing into the 
subroutine address table. This value is popped off the stack by the inter- 
preter before entry into the subroutine. Register 5 contains the second 
parameter on entry to the subroutine. Built-in assembly language procedures 
must have at least two formal parameters while functions must have at least 
one formal parameter. Register 14 points to the top of stack most significant 
byte on entry; X is set to register 14. 

On exit from the subroutine X must be set to register 14. To return 
use the instruction set P to register 15. 

Registers that may be used without saving and restoring their constants 
are R4, R5, and R7. All others must be saved and restored using the R2 stack. 
Register 2 must be decremented before storing registers. 

The subroutine linkage technique does not use standard call/return because 
it references a table of addresses and is faster than SCAL/SRET instructions. 

An example of a built-in subroutine is GETJQ_FLAG: 

•.X is 14; P is 8 



DEC 


14 


..reserve stack space 


LDI 


0 




LSNQ 




..test Q flag 


LDI 


1 




STXD 




..store least significant byte 


LDI 


0 




STR 


14 


..store most significant byte 


SEP 


15 


..return to interpreter 



APfE/OPlX Ji co/OT 



USER-DEFINED EXTER^^ ASSDBLY LANGUAGE SUBROUTINES 

A selector equal to 0 identifies a user-defined assembly langugage routine. 
The user provides the address of the assembly language routine in the call. 
The interpreter pops it from the stack and uses the standard call and return 
technique to execute the routine. Register 6 contains the address for 
returning to the interpreter. Register 3 is the program counter used to 
enter the assembly language routine. Register 14 is the data parameter pointer 
to the first byte of any parameters before execution of the routine. After 
execution the stack pointer register 14 points to the top of the stack entry. 
Register 2 is the system stack used to save registers. It is used to return 
control to the interpreter using the standard return instruction. 

The user is responsible for setting register 14 to point beyond all 
parameters. Registers available to run assembly language routines are 4, 5, 7, 
and 8. 

Registers 1 and 13 must not be altered at any time if interrupts are 
enabled. Other registers nay be used if restored to their original value. 
Register 2 must be decremented before storing registers. 



The following model and example describes the construction of an external 
assembly language subroutine: • * 



SUBR 



optional 



optional 

restore 

registers 



! 



SEX 


R2 


..set X to system stack 


DEC 


R2 




RSXD 


register 


.•save register on R2 stack 


SEX 


R14 


. .set X to parameter stack 


RLXA 


register 


••get data from stack ^ 


DEC 


R14 




RSXD 


regis ter 


••store data on stack 


INC 


R14 


••adjust stack pointer to 






point to most significant 






byte - ^ 


• 

SEX 


R2 




INC 


R2 


••adjust stack pointer 


RXIA 


register 


••restore register saved 


SRET 


R6 


••standard return 




